;2008-05-20
;Av Benjamin Ingberg och Patrik Johansson
;
;Våran testnivå, som vi använder när vi gör modifikationer i schemerman

(load "board.scm")
(load "evilballoon.scm")
(load "blob.scm")
(load "player1.scm")
(load "player2.scm")
(load "wall.scm")

(define test-level%
  (class board%
    (super-new [w 640][h 480][bg "./backgrounds/grey-ground.png"])
    (send this add-player (new player1%
                               [x 0]
                               [y 0]))
    (send this add-player (new player2%
                               [x 100]
                               [y 0]))
    (send this add-character (new evilballoon%
                                  [x 256]
                                  [y 256]))
    (send this add-character (new blob%
                                  [x 400]
                                  [y 200]))
    (send this add-world-object (new wall%
                                     [x 100]
                                     [y 100]))))